Namespace B1AddonBase
    Public Class B1StatusBarMessageType
        Public MessagType As SAPbouiCOM.BoStatusBarMessageType
        Public Sub New(ByVal MessageType As SAPbouiCOM.BoStatusBarMessageType)
            Me.MessagType = MessageType
        End Sub
    End Class
End Namespace